install.packages(“flexdashboard”) install.packages(“plotly”) install.packages(“p8105.datasets”)
library(flexdashboard) library(plotly) library(dplyr) library(p8105.datasets)
scatter_plot <- plot_ly(data = scatter_data,
x = ~department_id,
y = ~average_add_to_cart_order,
type = "scatter",
mode = "markers") %>%
layout(title = "Average Add-to-Cart Order by Department ID",
xaxis = list(title = "Department ID"),
yaxis = list(title = "Average Add-to-Cart Order"))
scatter_plot
bar_data <- instacart_sample %>%
count(aisle_id, name = "count") %>%
top_n(10, count)
bar_plot <- plot_ly(data = bar_data,
x = ~reorder(aisle_id, count),
y = ~count,
type = "bar") %>%
layout(title = "Top 10 Aisles by Order Count",
xaxis = list(title = "Aisle ID"),
yaxis = list(title = "Order Count"))
bar_plot
box_data <- instacart_sample %>%
filter(department_id %in% c(4, 16, 19))
box_plot <- plot_ly(data = box_data,
x = ~factor(department_id),
y = ~add_to_cart_order,
type = "box") %>%
layout(title = "Distribution of Add-to-Cart Order by Selected Departments",
xaxis = list(title = "Department ID"),
yaxis = list(title = "Add-to-Cart Order"))
box_plot